home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / ab.aut next >
Text File  |  1991-10-18  |  2KB  |  153 lines
  1. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  2.  $1="Q"
  3. ENDIF
  4. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  5.  ECHO "\r^G"
  6.  ECHO "AB.AUT：フルオートモードでは会議室・掲示板はスキップされます\r"
  7.  END
  8. ENDIF
  9.  
  10. SEND "SET PAGE ON\r",1
  11. LOOK
  12.  CASE "^J＞"
  13.  CASE ">"
  14. FREE
  15.  
  16. SEND "ANN\r",1
  17.  
  18. LABEL ANN
  19. LOOK
  20.  CASE "本フォーラム"
  21.   LOOK
  22.    CASE "^J＞"
  23.    CASE ">"
  24.   FREE
  25.   GOTO BUL
  26.  CASE "^J＞"
  27.  CASE "^Jmore>"
  28.    ECHO "^G 続きを表示させますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  29.    LOOKKEY 60
  30.     CASE "Y"
  31.      SEND "\r"
  32.      GOTO ANN
  33.     CASE "y"
  34.      SEND "\r"
  35.      GOTO ANN
  36.     CASE "N"
  37.     CASE "n"
  38.     CASE/TIMEOUT
  39.    FREE
  40. FREE
  41.  
  42. ECHO "^G 参照したいものがありますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  43. LOOKKEY 60
  44.  CASE "Y"
  45.  CASE "y"
  46.  CASE "N"
  47.   GOTO BUL
  48.  CASE "n"
  49.   GOTO BUL
  50.  CASE/TIMEOUT
  51.   GOTO BUL
  52. FREE
  53.  
  54. SEND "SET PAGE OFF\r"
  55. LOOK
  56.  CASE "^J＞"
  57.  CASE ">"
  58. FREE
  59.  
  60. CMD D "$900:\\$60\\ANN$946.LOG"
  61. ECHO "\r^G 番号を選択してください"
  62. ECHO "\r  複数指定するときの例：1,3,5   1-3,5 (+ﾘﾀｰﾝ) ＞"
  63.  
  64. LABEL A1
  65. $970=""
  66. LOOK
  67.  CASE "^Jnext>"
  68.   SEND "\r",1
  69.   GOTO A1
  70.  CASE "^J＞"
  71.   SCAN $970,1
  72.   IF $970!=""
  73.    GOTO A1
  74.   ENDIF
  75. FREE
  76. CMD D
  77.  
  78. SEND "SET PAGE ON\r",1
  79. LOOK
  80.  CASE "^J＞"
  81.  CASE ">"
  82. FREE
  83.  
  84. LABEL BUL
  85. SEND "BUL\r",1
  86. LOOK
  87.  CASE "本フォーラム"
  88.   LOOK
  89.    CASE "^J＞"
  90.    CASE ">"
  91.   FREE
  92.   END
  93.  CASE "^JBBS>"
  94.   SEND "1\r",1
  95. FREE
  96.  
  97. LABEL B
  98. LOOK
  99.  CASE "^J＞"
  100.  CASE "^Jmore>"
  101.   ECHO "^G 続きを表示させますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  102.   LOOKKEY 60
  103.    CASE "Y"
  104.     SEND "\r"
  105.     GOTO B
  106.    CASE "y"
  107.     SEND "\r"
  108.     GOTO B
  109.    CASE "N"
  110.    CASE "n"
  111.    CASE/TIMEOUT
  112.   FREE
  113. FREE
  114.  
  115. ECHO "^G 参照したいものがありますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  116. LOOKKEY 60
  117.  CASE "Y"
  118.  CASE "y"
  119.  CASE "N"
  120.   END
  121.  CASE "n"
  122.   END
  123.  CASE/TIMEOUT
  124.   END
  125. FREE
  126.  
  127. SEND "SET PAGE OFF\r"
  128. LOOK
  129.  CASE "^J＞"
  130.  CASE ">"
  131. FREE
  132.  
  133. CMD D "$900:\\$60\\BUL$943.LOG"
  134. ECHO "\r^G 番号を選択してください"
  135. ECHO "\r  複数指定するときの例：1,3,5   1-3,5 (+ﾘﾀｰﾝ) ＞"
  136.  
  137. LABEL B1
  138. $970=""
  139. LOOK
  140.  CASE "^Jnext>"
  141.   SEND "\r",1
  142.   GOTO B1
  143.  CASE "^J＞"
  144.   SCAN $970,1
  145.   IF $970==""
  146.    CMD D
  147.    END
  148.   ELSE
  149.    GOTO B1
  150.   ENDIF
  151. FREE
  152.  
  153.